home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / vision / programm / paintshp / source / objekt.lst < prev    next >
Encoding:
File List  |  1994-09-22  |  605 b   |  24 lines
  1. FILESELECT #"OBJEKT LADEN",DIR$(0)+"\*.OBJ","",select$
  2. IF EXIST(select$)=-1
  3.   OPEN "I",#0,select$
  4.   IF INP%(#0)=18011972
  5.     type&=INP&(#0)
  6.     length&=INP&(#0)
  7.     IF type&<2
  8.       dummy$=INPUT$(4,#0)
  9.     ELSE IF type&=3
  10.       dummy$=INPUT$(4,#0)
  11.       dummy$=INPUT$(INP&(#0),#0)
  12.     ELSE
  13.       dummy$=INPUT$(MUL(SUCC(INP&(#0)),4),#0)
  14.     ENDIF
  15.     objekt$=INPUT$(length&,#0)
  16.     ' Das Objekt wurde in objekt$ eingelesen
  17.     ' und kann nun mit PUT ausgegeben werden:
  18.     PUT 0,0,objekt$
  19.   ELSE
  20.     ALERT 3," | |Kein PS_PLUS-Objekt !!! ",1,"Abbruch",dummy&
  21.   ENDIF
  22.   CLOSE #0
  23. ENDIF
  24.